home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue27 / tiptrix / Dbrestr / MainU.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1997-05-03  |  1.1 KB  |  61 lines
  1. unit MainU;
  2.  
  3. interface
  4.  
  5. uses
  6.   WinTypes,WinProcs, Messages, SysUtils, Classes, Graphics, Controls,
  7.   Forms, Dialogs, Buttons, ExtCtrls, Menus, StdCtrls, Grids,
  8.   DBGrids, DBCtrls, DB, DBTables;
  9.  
  10. type
  11.   TMainF = class(TForm)
  12.     SpeedPanel: TPanel;
  13.     Button1: TButton;
  14.     Button2: TButton;
  15.     Table1: TTable;
  16.     DataSource1: TDataSource;
  17.     Panel1: TPanel;
  18.     Panel2: TPanel;
  19.     DBNavigator1: TDBNavigator;
  20.     DBGrid1: TDBGrid;
  21.     procedure FormCreate(Sender: TObject);
  22.     procedure Button1Click(Sender: TObject);
  23.     procedure Button2Click(Sender: TObject);
  24.   private
  25.     { Private declarations }
  26.   public
  27.     { Public declarations }
  28.   end;
  29.  
  30. var
  31.   MainF: TMainF;
  32.  
  33. implementation
  34. uses
  35.   RestrU;
  36.  
  37. {$R *.DFM}
  38.  
  39.  
  40. procedure TMainF.FormCreate(Sender: TObject);
  41. begin
  42.   AutoScroll := True;
  43.   with Table1 do begin
  44.     DatabaseName := ExtractFilePath(Application.ExeName);
  45.     TableName := 'Restr.db';
  46.     Open;
  47.   end;
  48. end;
  49.  
  50. procedure TMainF.Button1Click(Sender: TObject);
  51. begin
  52.   RestrF.Modify(Table1);
  53. end;
  54.  
  55. procedure TMainF.Button2Click(Sender: TObject);
  56. begin
  57.   Close;
  58. end;
  59.  
  60. end.
  61.